home *** CD-ROM | disk | FTP | other *** search
- object MIDeditDlg: TMIDeditDlg
- Left = 22
- Top = 42
- HelpContext = 2000
- ActiveControl = Edit2
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'MID Edit'
- ClientHeight = 307
- ClientWidth = 465
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 28
- Height = 13
- Caption = 'From'
- end
- object Label2: TLabel
- Left = 8
- Top = 48
- Width = 16
- Height = 13
- Caption = 'To'
- end
- object Bevel1: TBevel
- Left = 8
- Top = 80
- Width = 289
- Height = 185
- end
- object CancelBtn: TBitBtn
- Left = 112
- Top = 272
- Width = 77
- Height = 27
- Cursor = crArrow
- TabOrder = 0
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object HelpBtn: TBitBtn
- Left = 200
- Top = 272
- Width = 77
- Height = 27
- HelpContext = 2000
- Caption = 'Help'
- TabOrder = 1
- OnClick = HelpBtnClick
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object Edit1: TEdit
- Left = 48
- Top = 16
- Width = 329
- Height = 21
- TabOrder = 2
- Text = 'Edit1'
- OnClick = Edit1Exit
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- end
- object Edit2: TEdit
- Left = 48
- Top = 48
- Width = 329
- Height = 21
- TabOrder = 3
- Text = 'Edit2'
- OnClick = Edit2Exit
- OnExit = Edit2Exit
- OnKeyPress = Edit2KeyPress
- end
- object GroupBox2: TGroupBox
- Left = 384
- Top = 0
- Width = 73
- Height = 73
- Caption = 'Operation'
- TabOrder = 4
- object muteButton: TRadioButton
- Left = 8
- Top = 24
- Width = 57
- Height = 17
- Caption = 'Mute'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object soloButton: TRadioButton
- Left = 8
- Top = 48
- Width = 57
- Height = 17
- Caption = 'Solo'
- TabOrder = 1
- end
- end
- object addButton: TButton
- Left = 72
- Top = 96
- Width = 77
- Height = 27
- Caption = 'Add'
- TabOrder = 5
- OnClick = addButtonClick
- end
- object deleteButton: TButton
- Left = 160
- Top = 96
- Width = 77
- Height = 27
- Caption = 'Remove'
- TabOrder = 6
- OnClick = deleteButtonClick
- end
- object StringGrid1: TStringGrid
- Left = 16
- Top = 136
- Width = 274
- Height = 121
- ColCount = 2
- FixedCols = 0
- RowCount = 2
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
- TabOrder = 7
- OnClick = StringGrid1Click
- OnEnter = StringGrid1Enter
- OnExit = StringGrid1Exit
- OnKeyPress = StringGrid1KeyPress
- OnSelectCell = StringGrid1SelectCell
- ColWidths = (
- 138
- 131)
- end
- object OKbutton: TBitBtn
- Left = 24
- Top = 272
- Width = 77
- Height = 27
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 8
- OnClick = OKbuttonClick
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333330000333333333333333333333333F33333333333
- 00003333344333333333333333377F3333333333000033334224333333333333
- 337337F3333333330000333422224333333333333733337F3333333300003342
- 222224333333333373333337F3333333000034222A22224333333337F337F333
- 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
- 33333337F73337F337F33333000033A33333A222433333337333337F337F3333
- 0000333333333A222433333333333337F337F33300003333333333A222433333
- 333333337F337F33000033333333333A222433333333333337F337F300003333
- 33333333A222433333333333337F337F00003333333333333A22433333333333
- 3337F37F000033333333333333A223333333333333337F730000333333333333
- 333A333333333333333337330000333333333333333333333333333333333333
- 0000}
- Margin = 2
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object GroupBox1: TGroupBox
- Left = 304
- Top = 80
- Width = 153
- Height = 217
- Caption = 'Act on...'
- TabOrder = 9
- object noteBox: TCheckBox
- Left = 8
- Top = 24
- Width = 89
- Height = 17
- Caption = 'Note On/Off'
- State = cbChecked
- TabOrder = 0
- end
- object channelBox: TCheckBox
- Left = 8
- Top = 48
- Width = 121
- Height = 17
- Caption = 'Channel Pressure'
- TabOrder = 1
- end
- object polyBox: TCheckBox
- Left = 8
- Top = 72
- Width = 137
- Height = 17
- Caption = 'Polyphonic Pressure'
- TabOrder = 2
- end
- object modulationBox: TCheckBox
- Left = 8
- Top = 96
- Width = 121
- Height = 17
- Caption = 'Modulation Wheel'
- TabOrder = 3
- end
- object volumeBox: TCheckBox
- Left = 8
- Top = 120
- Width = 65
- Height = 17
- Caption = 'Volume'
- TabOrder = 4
- end
- object panBox: TCheckBox
- Left = 8
- Top = 144
- Width = 137
- Height = 17
- Caption = 'Stereo Pan Position'
- TabOrder = 5
- end
- object expressionBox: TCheckBox
- Left = 8
- Top = 168
- Width = 89
- Height = 17
- Caption = 'Expression'
- TabOrder = 6
- end
- object bendBox: TCheckBox
- Left = 8
- Top = 192
- Width = 97
- Height = 17
- Caption = 'Pitch Bend'
- TabOrder = 7
- end
- end
- end
-